home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.04 Apr 91 / Code Optimizing / Sources / Dummy.f.opt2.a < prev    next >
Encoding:
Text File  |  1990-04-26  |  5.2 KB  |  249 lines  |  [TEXT/MPS ]
  1. ;    Assembler source from Language Systems FORTRAN (Version 2.0 January 23, 1990)
  2. ;    Fri, Apr 13, 1990   22:08
  3. ;    Optimization Level 2.
  4.  
  5. ;  Floating-point operations have been commented out.
  6.  
  7.         BLANKS ON
  8.         STRING ASIS
  9.         PRINT OFF
  10.         INCLUDE 'Traps.a'
  11.         INCLUDE 'ToolEqu.a'
  12.         INCLUDE 'QuickEqu.a'
  13.         INCLUDE 'SysEqu.a'
  14.         INCLUDE 'SANEMacs.a'
  15.         PRINT ON
  16.  
  17.  ;  File "Mxmpy.f";  Line          1
  18.         SEG    'Mxmpy'
  19. DUMMY    PROC EXPORT
  20.         LINK    A6,#$FFFFFF20
  21.         MOVEM.L    D5-D7,-(SP)
  22.  ;  File "Mxmpy.f";  Line         17
  23.         BRA        L10002
  24. L10001    EQU    *
  25.         MOVE.L    #$00000001,$FFFFFFAC(A6)
  26.         MOVEA.L    $0010(A6),A0
  27.         MOVE.L    (A0),$FFFFFFB0(A6)
  28.         MOVE.L    (A0),D0
  29.         ADD.L    D0,D0
  30.         MOVE.L    D0,D1
  31.         ASL.L    #2,D0
  32.         ADD.L    D1,D0
  33.         MOVE.L    D0,$FFFFFF64(A6)
  34.         MOVE.L    $FFFFFF64(A6),$FFFFFFB4(A6)
  35.         MOVE.L    #$00000001,$FFFFFFB8(A6)
  36.         MOVEA.L    $000C(A6),A0
  37.         MOVE.L    (A0),$FFFFFFBC(A6)
  38.         MOVE.L    $FFFFFFB4(A6),$FFFFFF40(A6)
  39.         MOVEA.L    $000C(A6),A0
  40.         MOVE.L    $FFFFFF40(A6),D1
  41.         EXG        D0,D1
  42.         MOVE.L    D1,-(SP)
  43.         MOVE.L    (A0),D1
  44.         IMPORT    F_IMUL
  45.         JSR        F_IMUL
  46.         MOVE.L    (SP)+,D1
  47.         EXG        D0,D1
  48.         MOVE.L    D1,$FFFFFF40(A6)
  49.         MOVE.L    $FFFFFF40(A6),$FFFFFFC0(A6)
  50.         MOVE.L    #$00000001,$FFFFFFC4(A6)
  51.         MOVEA.L    $000C(A6),A0
  52.         MOVE.L    (A0),$FFFFFFC8(A6)
  53.         MOVE.L    (A0),D0
  54.         ADD.L    D0,D0
  55.         MOVE.L    D0,D1
  56.         ASL.L    #2,D0
  57.         ADD.L    D1,D0
  58.         MOVE.L    D0,$FFFFFF48(A6)
  59.         MOVE.L    $FFFFFF48(A6),$FFFFFFCC(A6)
  60.         MOVE.L    #$00000001,$FFFFFFD0(A6)
  61.         MOVEA.L    $0008(A6),A0
  62.         MOVE.L    (A0),$FFFFFFD4(A6)
  63.         MOVE.L    $FFFFFFCC(A6),$FFFFFF48(A6)
  64.         MOVEA.L    $0008(A6),A0
  65.         MOVE.L    $FFFFFF48(A6),D1
  66.         EXG        D0,D1
  67.         MOVE.L    D1,-(SP)
  68.         MOVE.L    (A0),D1
  69.         IMPORT    F_IMUL
  70.         JSR        F_IMUL
  71.         MOVE.L    (SP)+,D1
  72.         EXG        D0,D1
  73.         MOVE.L    D1,$FFFFFF48(A6)
  74.         MOVE.L    $FFFFFF48(A6),$FFFFFFD8(A6)
  75.         MOVE.L    #$00000001,$FFFFFFDC(A6)
  76.         MOVEA.L    $0010(A6),A0
  77.         MOVE.L    (A0),$FFFFFFE0(A6)
  78.         MOVE.L    $FFFFFF64(A6),$FFFFFFE4(A6)
  79.         MOVE.L    #$00000001,$FFFFFFE8(A6)
  80.         MOVEA.L    $0008(A6),A0
  81.         MOVE.L    (A0),$FFFFFFEC(A6)
  82.         MOVE.L    $FFFFFFE4(A6),$FFFFFF50(A6)
  83.         MOVEA.L    $0008(A6),A0
  84.         MOVE.L    $FFFFFF50(A6),D1
  85.         EXG        D0,D1
  86.         MOVE.L    D1,-(SP)
  87.         MOVE.L    (A0),D1
  88.         IMPORT    F_IMUL
  89.         JSR        F_IMUL
  90.         MOVE.L    (SP)+,D1
  91.         EXG        D0,D1
  92.         MOVE.L    D1,$FFFFFF50(A6)
  93.         MOVE.L    $FFFFFF50(A6),$FFFFFFF0(A6)
  94.         RTS
  95. L10002    EQU    *
  96.         BSR        L10001
  97.  ;  File "Mxmpy.f";  Line         18
  98.         MOVEQ    #$0001,D1
  99.         SUB.L    $FFFFFFC4(A6),D1
  100.         ADD.L    D1,D1
  101.         MOVE.L    D1,D0
  102.         ASL.L    #2,D1
  103.         ADD.L    D0,D1
  104.         MOVEQ    #$0001,D2
  105.         SUB.L    $FFFFFFD0(A6),D2
  106.         EXG        D0,D2
  107.         MOVE.L    D1,-(SP)
  108.         MOVE.L    $FFFFFFCC(A6),D1
  109.         IMPORT    F_IMUL
  110.         JSR        F_IMUL
  111.         MOVE.L    (SP)+,D1
  112.         EXG        D0,D2
  113.         ADD.L    D1,D2
  114.         MOVE.L    D2,$FFFFFF84(A6)
  115.         MOVEQ    #$0001,D1
  116.         SUB.L    $FFFFFFAC(A6),D1
  117.         ADD.L    D1,D1
  118.         MOVE.L    D1,D0
  119.         ASL.L    #2,D1
  120.         ADD.L    D0,D1
  121.         MOVEQ    #$0001,D2
  122.         SUB.L    $FFFFFFB8(A6),D2
  123.         EXG        D0,D2
  124.         MOVE.L    D1,-(SP)
  125.         MOVE.L    $FFFFFFB4(A6),D1
  126.         IMPORT    F_IMUL
  127.         JSR        F_IMUL
  128.         MOVE.L    (SP)+,D1
  129.         EXG        D0,D2
  130.         ADD.L    D1,D2
  131.         MOVE.L    D2,$FFFFFF80(A6)
  132.         MOVEQ    #$0001,D1
  133.         SUB.L    $FFFFFFDC(A6),D1
  134.         ADD.L    D1,D1
  135.         MOVE.L    D1,D0
  136.         ASL.L    #2,D1
  137.         ADD.L    D0,D1
  138.         MOVEQ    #$0001,D2
  139.         SUB.L    $FFFFFFE8(A6),D2
  140.         EXG        D0,D2
  141.         MOVE.L    D1,-(SP)
  142.         MOVE.L    $FFFFFFE4(A6),D1
  143.         IMPORT    F_IMUL
  144.         JSR        F_IMUL
  145.         MOVE.L    (SP)+,D1
  146.         EXG        D0,D2
  147.         ADD.L    D1,D2
  148.         MOVE.L    D2,$FFFFFF7C(A6)
  149.         MOVE.L    #$00000001,$FFFFFFA0(A6)
  150.         MOVEA.L    $0010(A6),A1
  151.         MOVE.L    (A1),D5
  152.         BLE        L10004
  153. L10003    EQU    *
  154.  ;  File "Mxmpy.f";  Line         19
  155.         MOVE.L    $FFFFFF7C(A6),$FFFFFF78(A6)
  156.         MOVE.L    $FFFFFF80(A6),$FFFFFF74(A6)
  157.         MOVE.L    $FFFFFF84(A6),$FFFFFF70(A6)
  158.         MOVE.L    #$00000001,$FFFFFFA4(A6)
  159.         MOVEA.L    $0008(A6),A1
  160.         MOVE.L    (A1),D6
  161.         BLE        L10006
  162. L10005    EQU    *
  163.  ;  File "Mxmpy.f";  Line         20
  164.         LEA        $FFFFFFF4(A6),A1
  165.         CLR.L    (A1)+
  166.         CLR.L    (A1)+
  167.         CLR.W    (A1)+
  168.  ;  File "Mxmpy.f";  Line         21
  169.         MOVE.L    $FFFFFF70(A6),$FFFFFF6C(A6)
  170.         MOVE.L    $FFFFFF74(A6),$FFFFFF68(A6)
  171.         MOVE.L    #$00000001,$FFFFFFA8(A6)
  172.         MOVEA.L    $000C(A6),A1
  173.         MOVE.L    (A1),D7
  174.         BLE        L10008
  175. L10007    EQU    *
  176.  ;  File "Mxmpy.f";  Line         22
  177.         MOVE.L    $FFFFFF68(A6),$FFFFFF3C(A6)
  178.         MOVE.L    $FFFFFF6C(A6),$FFFFFF40(A6)
  179.         MOVEA.L    $0018(A6),A1
  180.         ADDA.L    $FFFFFF40(A6),A1
  181. ;        MOVE.L    A1,-(SP)
  182.         MOVEA.L    $001C(A6),A0
  183.         ADDA.L    $FFFFFF3C(A6),A0
  184.         LEA        $FFFFFF54(A6),A1
  185. ;        MOVE.L    A1,-(SP)
  186.         MOVE.L    (A0)+,(A1)+
  187.         MOVE.L    (A0)+,(A1)+
  188.         MOVE.W    (A0)+,(A1)+
  189. ;        MOVE.W    #FOMUL,-(SP)
  190. ;        _FP68K
  191. ;        PEA        $FFFFFF54(A6)
  192. ;        PEA        $FFFFFFF4(A6)
  193. ;        MOVE.W    #FOADD,-(SP)
  194. ;        _FP68K
  195.  ;  File "Mxmpy.f";  Line         23
  196.         MOVE.L    $FFFFFFB4(A6),D1
  197.         ADD.L    D1,$FFFFFF68(A6)
  198.         MOVEQ    #$000A,D1
  199.         ADD.L    D1,$FFFFFF6C(A6)
  200.         ADDQ.L    #1,$FFFFFFA8(A6)
  201.         SUBQ.L    #1,D7
  202.         BGT.S    L10007
  203. L10008    EQU    *
  204.  ;  File "Mxmpy.f";  Line         24
  205.         MOVE.L    $FFFFFF78(A6),$FFFFFF60(A6)
  206.         LEA        $FFFFFFF4(A6),A0
  207.         MOVEA.L    $0014(A6),A1
  208.         ADDA.L    $FFFFFF60(A6),A1
  209.         MOVE.L    (A0)+,(A1)+
  210.         MOVE.L    (A0)+,(A1)+
  211.         MOVE.W    (A0)+,(A1)+
  212.  ;  File "Mxmpy.f";  Line         25
  213.         MOVE.L    $FFFFFFCC(A6),D1
  214.         ADD.L    D1,$FFFFFF70(A6)
  215.         MOVE.L    $FFFFFFE4(A6),D1
  216.         ADD.L    D1,$FFFFFF78(A6)
  217.         ADDQ.L    #1,$FFFFFFA4(A6)
  218.         SUBQ.L    #1,D6
  219.         BGT        L10005
  220. L10006    EQU    *
  221.  ;  File "Mxmpy.f";  Line         26
  222.         MOVEQ    #$000A,D1
  223.         ADD.L    D1,$FFFFFF7C(A6)
  224.         MOVEQ    #$000A,D1
  225.         ADD.L    D1,$FFFFFF80(A6)
  226.         ADDQ.L    #1,$FFFFFFA0(A6)
  227.         SUBQ.L    #1,D5
  228.         BGT        L10003
  229. L10004    EQU    *
  230.  ;  File "Mxmpy.f";  Line         27
  231.         LEA        $0020(A6),A1
  232.         MOVEA.L    $0004(A6),A0
  233.         MOVEM.L    (SP)+,D5-D7
  234.         UNLK    A6
  235.         MOVEA.L A1,A7
  236.         JMP        (A0)
  237.  ;  File "Mxmpy.f";  Line         27
  238. PROCSTR    EQU    *
  239.         DC.W    $FFFF8006
  240.         DC.B    'MXMPY '
  241.         DC.W    $0000
  242. EXTDCONST    EQU        *
  243.         DC.W    $0000,$0000,$0000,$0000,$0000
  244.  
  245.         ENDPROC
  246.  
  247.  
  248.         END
  249.